Visual Basic Toolbox/Visual Basic Toolbox (P.I.E.)(1996).ISO/toolbar/tbsrc/file0.frm

Text File | 1994-10-09 | 3KB | 131 lines

VERSION 2.00
Begin MDIForm wndMain
   Caption         =   "MDIForm1"
   ClientHeight    =   3780
   ClientLeft      =   480
   ClientTop       =   1665
   ClientWidth     =   5970
   Height          =   4470
   Left            =   420
   LinkTopic       =   "MDIForm1"
   Top             =   1035
   Width           =   6090
   Begin PictureBox StatusBar
      Align           =   2  'Align Bottom
      AutoRedraw      =   -1  'True
      BackColor       =   &H00C0C0C0&
      BorderStyle     =   0  'None
      Height          =   300
      Left            =   0
      ScaleHeight     =   300
      ScaleWidth      =   5970
      TabIndex        =   1
      Top             =   3480
      Width           =   5970
      Begin Label Status
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Ready"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   195
         Left            =   60
         TabIndex        =   2
         Top             =   60
         Width           =   465
      End
   End
   Begin PictureBox Toolbar
      Align           =   1  'Align Top
      AutoRedraw      =   -1  'True
      BackColor       =   &H00C0C0C0&
      BorderStyle     =   0  'None
      Height          =   435
      Left            =   0
      ScaleHeight     =   435
      ScaleWidth      =   5970
      TabIndex        =   0
      Top             =   0
      Width           =   5970
   End
   Begin Menu Menu_Fil
      Caption         =   "&File"
      Begin Menu MenF_Exi
         Caption         =   "&Exit"
      End
   End
   Begin Menu Menu_Edi
      Caption         =   "&Edit"
   End
   Begin Menu Menu_Opt
      Caption         =   "&Options"
      Begin Menu MenuO_Sho
         Caption         =   "Show Toolbar"
         Checked         =   -1  'True
      End
      Begin Menu MenuO_Qui
         Caption         =   "&QuickHelp"
         Checked         =   -1  'True
      End
   End
   Begin Menu Menu_Win
      Caption         =   "&Window"
   End
   Begin Menu Menu_Hel
      Caption         =   "&Help"
   End
End
Option Explicit

Sub MDIForm_Load ()
    ToolCopy Toolbar
    Me.WindowState = 2
End Sub

Sub MDIForm_Unload (Cancel As Integer)
    vbQHExit Me
End Sub

Sub MenF_Exi_Click ()
    Unload Me
End Sub

Sub Menu_Edi_Click ()
    form1.Show
End Sub

Sub Menu_Hel_Click ()
    MsgBox "Toolbar Version 1.1a" + Chr$(13) + "Andreas Fehr,Switzerland" + Chr$(13) + "CIS 100042.2070"
End Sub

Sub MenuO_Qui_Click ()
    MenuO_Qui.Checked = Not MenuO_Qui.Checked
    vbQHUsed MenuO_Qui.Checked
End Sub

Sub MenuO_Sho_Click ()
    If MenuO_Sho.Checked Then
        Toolbar.Visible = False
    Else
        vbQHShowTool
    End If
    MenuO_Sho.Checked = Not MenuO_Sho.Checked
End Sub

Sub StatusBar_Resize ()
    MakeStatusBar StatusBar
End Sub

Sub Toolbar_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
    vbQHelpExt Toolbar
End Sub

Sub Toolbar_Resize ()
    MakeStatusBar Toolbar
End Sub